home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Src / .gdb_history next >
Encoding:
Text File  |  1996-07-23  |  3.4 KB  |  141 lines
  1. break Tk_main
  2. run -new-colormap
  3. next
  4. graph display class
  5. print class
  6. next
  7. print Xdisplay
  8. next
  9. print STk_arg_colormap
  10. next
  11. run
  12. run -viusal staticgray
  13. next
  14. step
  15. next
  16. print STk_arg_visual
  17. cont
  18. run -visual staticgray
  19. next
  20. print STk_arg_visual
  21. next
  22. cont
  23. bt
  24. run
  25. ying
  26.     252        * the saved continuation.
  27.     253        */
  28.     254       STk_dumped_core = 0;
  29.     255       longjmp(*Top_jmp_buf, JMP_RESTORE);
  30.     256     }
  31.     257     else {
  32.     258       STk_print(x, STk_curr_oport, WRT_MODE);
  33.     259       Putc('\n', STk_stdout);
  34.     260     }
  35.     261   }
  36.     262 }
  37.     263 
  38.     264 static void repl_driver(int argc, char **argv)
  39.     265 {
  40.     266   static int k;
  41.     267   static char **new_argv;
  42.     268   
  43.     269   new_argv = STk_process_argc_argv(argc, argv);
  44.     270 
  45.     271   if (STk_arg_image) {
  46.     272     STk_save_unix_args_and_environment(argc, argv);
  47.     273     STk_restore_image(STk_arg_image);
  48.     274   }
  49.     275   else {
  50.     276     /* Normal initialisation */
  51.     277     STk_reset_eval_stack();
  52.     278   }
  53.     279 
  54.     280   /* Point where we come back on errors, image restoration, ... */
  55.     281   k = setjmp(*Top_jmp_buf);
  56.     282   
  57.     283   Error_context         = ERR_OK;    
  58.     284   STk_sigint_counter = 0;
  59.     285   STk_control_C         = 0;
  60.     286 
  61.     287   switch (k) {
  62.     288     case 0:        init_interpreter();
  63.     289             STk_initialize_scheme_args(new_argv);
  64.     290             load_init_file();
  65.     291 #ifdef USE_TK
  66.     292 #  ifdef WIN32
  67.     293             if (!STk_arg_no_tk)
  68.     294               Tk_main(STk_arg_sync,
  69.     295                   STk_arg_name,
  70.     296                   STk_arg_file,
  71.     297                   "localhost:0",
  72.     298                   STk_arg_geometry);
  73.     299 #  else
  74.     300             if (!STk_arg_Xdisplay) 
  75.     301               STk_arg_Xdisplay =  getenv("DISPLAY");
  76.     302             if (!STk_arg_no_tk && STk_arg_Xdisplay)
  77.     303               Tk_main(STk_arg_sync,
  78.     304                   STk_arg_name,
  79.     305                   STk_arg_file,
  80.     306                   STk_arg_Xdisplay,
  81.     307                   STk_arg_geometry);
  82.     308 #  endif
  83.     309 #endif
  84.     310             finish_initialisation();
  85.     311             break;
  86.     312     case JMP_RESTORE:    STk_restore_unix_args_and_environment(&argc, &argv);
  87.     313             /* Process another time args since we have lost them ! */
  88.     314             new_argv = STk_process_argc_argv(argc, argv);
  89.     315             STk_initialize_scheme_args(new_argv);
  90.     316 #ifdef USE_TK
  91.     317             if (!STk_arg_no_tk && (STk_arg_Xdisplay||getenv("DISPLAY")))
  92.     318               Tk_main(STk_arg_sync, 
  93.     319                   STk_arg_name, 
  94.     320                   STk_arg_file, 
  95.     321                   STk_arg_Xdisplay,
  96.     322                   STk_arg_geometry);
  97.     323 #endif
  98.     324             finish_initialisation();
  99.     325             break;
  100.     326     case JMP_THROW:
  101.     327     case JMP_ERROR:    break;
  102.     328   }
  103.     329 
  104.     330   repl_loop();
  105.     331   if (STk_interactivep) fprintf(STk_stderr, "Bye.\n");
  106.     332   STk_quit_interpreter(UNBOUND);
  107.     333 }
  108.     334 
  109.     335 /******************************************************************************
  110.     336  *
  111.     337  * Toplevel
  112.     338  * 
  113.     339  ******************************************************************************/
  114.     340 
  115.     341 void STk_toplevel(int argc, char **argv)
  116.     342 {
  117.     343   SCM stack_start; /* Unused variable. Its the first stack allocated variable */
  118.     344 
  119. run -visual staticgray
  120. break Tk_main
  121. run -visual staticgray
  122. next
  123. step
  124. next
  125. break tkFrame.c:297
  126. cont
  127. print screenName
  128. next
  129. print className
  130. next
  131. print visualName
  132. next
  133. step
  134. graph display dictPtr
  135. next
  136. print visInfoList
  137. next
  138. print new
  139. next
  140.  
  141.